home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 2007 December
/
PCWKCD1207B.iso
/
Fiszkowe programy do nauki
/
Teach2000 8.19
/
teach819.exe
/
{app}
/
Teach2000.exe
/
0
/
RCDATA
/
TFRMPRINTTEST
/
TFRMPRINTTEST.txt
Wrap
Text File
|
2007-07-13
|
8KB
|
330 lines
object frmPrintTest: TfrmPrintTest
Left = 354
Top = 157
HelpContext = 3000
ActiveControl = edTitle
BorderIcons = [biSystemMenu, biHelp]
ClientHeight = 463
ClientWidth = 585
Color = clBtnFace
Constraints.MinHeight = 480
Constraints.MinWidth = 585
ParentFont = True
OldCreateOrder = False
Position = poOwnerFormCenter
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 409
Width = 585
Height = 54
Align = alBottom
TabOrder = 0
DesignSize = (
585
54)
object btnClose: TTntButton
Left = 489
Top = 13
Width = 75
Height = 25
Anchors = [akRight, akBottom]
ModalResult = 2
TabOrder = 0
end
object btnPrint: TTntButton
Left = 409
Top = 13
Width = 75
Height = 25
Anchors = [akRight, akBottom]
TabOrder = 1
OnClick = btnPrintClick
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 585
Height = 273
Align = alTop
BevelOuter = bvNone
TabOrder = 1
DesignSize = (
585
273)
object lblTeacher: TTntLabel
Left = 16
Top = 72
Width = 49
Height = 13
Caption = 'lblTeacher'
FocusControl = edTeacher
end
object lblTitle: TTntLabel
Left = 16
Top = 24
Width = 30
Height = 13
Caption = 'lblTitle'
FocusControl = edTitle
end
object lblCodeCaption: TTntLabel
Left = 336
Top = 144
Width = 72
Height = 13
Caption = 'lblCodeCaption'
end
object lblCode: TTntLabel
Left = 526
Top = 144
Width = 35
Height = 13
Alignment = taRightJustify
Caption = 'lblCode'
end
object Bevel1: TBevel
Left = 16
Top = 160
Width = 546
Height = 9
Anchors = [akLeft, akTop, akRight]
Shape = bsTopLine
end
object Bevel2: TBevel
Left = 16
Top = 224
Width = 546
Height = 9
Anchors = [akLeft, akTop, akRight]
Shape = bsTopLine
end
object lblRemarksAbove: TTntLabel
Left = 16
Top = 176
Width = 82
Height = 13
Caption = 'lblRemarksAbove'
FocusControl = edRemarksAbove
end
object lblSchool: TTntLabel
Left = 16
Top = 96
Width = 41
Height = 13
Caption = 'lblSchool'
FocusControl = edSchool
end
object lblDate: TTntLabel
Left = 16
Top = 144
Width = 33
Height = 13
Caption = 'lblDate'
FocusControl = dtpDate
end
object lblRemarksBelow: TTntLabel
Left = 16
Top = 200
Width = 79
Height = 13
Caption = 'lblRemarksBelow'
FocusControl = edRemarksBelow
end
object lblTopic: TTntLabel
Left = 16
Top = 48
Width = 35
Height = 13
Caption = 'lblTopic'
FocusControl = edTopic
end
object lblLogo: TTntLabel
Left = 16
Top = 120
Width = 33
Height = 13
Caption = 'lblLogo'
FocusControl = edLogo
end
object sbBrowse: TTntSpeedButton
Left = 314
Top = 112
Width = 23
Height = 22
OnClick = sbBrowseClick
end
object edTeacher: TTntEdit
Left = 176
Top = 64
Width = 137
Height = 21
TabOrder = 2
OnChange = edCodeParamChange
end
object edTitle: TTntEdit
Left = 176
Top = 16
Width = 386
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
OnChange = edCodeParamChange
end
object edRemarksAbove: TTntEdit
Left = 176
Top = 168
Width = 386
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 6
end
object edSchool: TTntEdit
Left = 176
Top = 88
Width = 137
Height = 21
TabOrder = 3
OnChange = edCodeParamChange
end
object dtpDate: TDateTimePicker
Left = 176
Top = 136
Width = 137
Height = 21
Date = 37843.938249236110000000
Time = 37843.938249236110000000
TabOrder = 5
OnChange = edCodeParamChange
end
object edRemarksBelow: TTntEdit
Left = 176
Top = 192
Width = 386
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 7
end
object edTopic: TTntEdit
Left = 176
Top = 40
Width = 137
Height = 21
TabOrder = 1
OnChange = edCodeParamChange
end
object btnShuffle: TTntButton
Left = 489
Top = 240
Width = 75
Height = 25
Anchors = [akTop, akRight]
TabOrder = 8
OnClick = btnShuffleClick
end
object edLogo: TTntEdit
Left = 176
Top = 112
Width = 137
Height = 21
TabOrder = 4
OnChange = edCodeParamChange
end
end
object vstPrintTest: TVirtualStringTree
Left = 0
Top = 273
Width = 585
Height = 136
Align = alClient
DefaultNodeHeight = 26
DragMode = dmAutomatic
EditDelay = 100
Header.AutoSizeIndex = 0
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
Header.PopupMenu = VTHeaderPopupMenu
Header.Style = hsXPStyle
HintMode = hmTooltip
IncrementalSearch = isAll
ParentShowHint = False
PopupMenu = pmOptions
ShowHint = True
TabOrder = 2
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toExtendedFocus, toRightClickSelect]
OnBeforeCellPaint = vstPrintTestBeforeCellPaint
OnClick = vstPrintTestClick
OnCreateEditor = vstPrintTestCreateEditor
OnEditCancelled = vstPrintTestEditCancelled
OnEdited = vstPrintTestEdited
OnEditing = vstPrintTestEditing
OnGetText = vstPrintTestGetText
OnPaintText = vstPrintTestPaintText
OnKeyDown = vstPrintTestKeyDown
Columns = <
item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 0
WideText = 'Number'
end
item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 1
Width = 100
WideText = 'Question'
end
item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 2
Width = 100
WideText = 'Answer'
end
item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 3
Width = 100
end
item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 4
Width = 100
end
item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 5
Width = 100
end>
WideDefaultText = ''
end
object VTHeaderPopupMenu: TVTHeaderPopupMenu
Left = 408
Top = 200
end
object pmOptions: TPopupMenu
Left = 360
Top = 224
object miSetPoints: TMenuItem
Caption = 'miSetPoints'
OnClick = miSetPointsClick
end
object miSetWhiteSpace: TMenuItem
Caption = 'miSetWhiteSpace'
OnClick = miSetWhiteSpaceClick
end
end
object OpenDialog: TTntOpenPictureDialog
DefaultExt = 'png'
Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
Left = 416
Top = 232
end
end